home *** CD-ROM | disk | FTP | other *** search
/ Designer's Club 1997 February / Designer's Club 1997 February.iso / mac / Idea Source / Retro.DIR / 00159_Script_159 < prev    next >
Text File  |  1997-01-06  |  2KB  |  64 lines
  1. on startmovie
  2.   global toolH, toolV, gallery
  3.   if toolH = 0 then
  4.     set toolH = 150
  5.     set toolV = 20
  6.   end if
  7.   set the locH of sprite 40 to toolH
  8.   set the locV of sprite 40 to toolV
  9.   set gallery = "slideshow"
  10. end
  11.  
  12. on stopmovie
  13.   global toolH, toolV
  14.   set toolH = the locH of sprite 40
  15.   set toolV = the locV of sprite 40
  16. end
  17.  
  18. on pressit button
  19.   puppetsound "clickdn"
  20.   repeat while the mousedown
  21.     set the visible of sprite button to false
  22.     updatestage
  23.   end repeat
  24.   set the visible of sprite button to true
  25.   puppetsound "clickup"
  26. end
  27.  
  28. on tools
  29.   repeat with n = 41 to 46
  30.     puppetsprite n, true
  31.   end repeat
  32.   repeat with n = 41 to 46
  33.     set the locV of sprite n to the locV of sprite 40 + 32
  34.   end repeat
  35.   set the locH of sprite 41 to the locH of sprite 40
  36.   set the locH of sprite 42 to the locH of sprite 40 - 96
  37.   set the locH of sprite 43 to the locH of sprite 40 - 35
  38.   
  39.   set the locH of sprite 44 to the locH of sprite 40 + 15
  40.   set the locH of sprite 45 to the locH of sprite 40 + 57
  41.   set the locH of sprite 46 to the locH of sprite 40 + 104
  42.   updatestage
  43. end tools
  44.  
  45. on keyDown 
  46.   if the keycode = 51 then go the frame + 1
  47.   if the key = 1 then set the soundLevel to (1)
  48.   if the key = 2 then set the soundLevel to (2)
  49.   if the key = 3 then set the soundLevel to (3)
  50.   if the key = 4 then set the soundLevel to (4)
  51.   if the key = 5 then set the soundLevel to (5)
  52.   if the key = 6 then set the soundLevel to (6)
  53.   if the key = 7 then set the soundLevel to (7)
  54.   if the key = "S" then
  55.     if the volume of sound 2 = 0 then
  56.       set the volume of sound 2 to the soundlevel * 36
  57.     else set the volume of sound 2 to 0
  58.   end if
  59. end keydown
  60.  
  61.  
  62.  
  63.  
  64.